home *** CD-ROM | disk | FTP | other *** search
- { Demonstration for removable windo package}
-
- {$IWINDOW.INC}
-
- var
- i: integer;
-
- begin { Main }
- initwin;
- writeln('Now and every time the action stops.');
- writeln('press ENTER to continue');
- readln;
- clrscr;
- for i:= 1 to 25 do writeln(' This is the original screen');
-
- mkwin(3,3,50,18);
- for i := 1 to 20 do writeln('Line ',i:2,' of the first window...');
- readln;
-
- mkwin(10,5,70,20);
- for i := 1 to 20 do writeln('Line ',i:2,' of window Two...');
- readln;
-
- mkwin(15,15,45,23);
- for i := 1 to 20 do writeln('Line ',i:2,' of window Three...');
- readln;
- clrscr;
- readln;
-
- mkwin(55,10,79,25);
- for i := 1 to 20 do writeln('Line ',i:2,',window Four');
- readln;
-
- rmwin;
- readln;
-
- rmwin;
- readln;
-
- rmwin;
- readln;
-
- rmwin;
- readln;
-
- rmwin;
-
- end.